home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / pcv05n08.zip / CL.BAT < prev    next >
DOS Batch File  |  1993-06-12  |  2KB  |  71 lines
  1. @ECHO OFF
  2. REM NAME: CL.BAT
  3. REM PURPOSE: Store Command Lines
  4.  
  5. SET USE=
  6. IF (%1)==(ABC123XYZ) GOTO SHOWTHEM
  7. IF (%1)==(/?) GOTO HELP
  8. IF (%1)==()   GOTO MISSING
  9. IF (%1)==(D)  GOTO DISPLAY
  10. IF (%1)==(d)  GOTO DISPLAY
  11. IF NOT EXIST C:\CL\*.* MD C:\CL
  12. FOR %%J IN (0 1 2 3 4 5 6 7 8 9) DO IF (%1)==(%%J) GOTO RUN
  13. FOR %%J IN (9 8 7 6 5 4 3 2 1 0) DO IF NOT EXIST C:\CL\%%J.BAT SET USE=%%J
  14. IF NOT (%USE%)==() GOTO USE
  15. GOTO ALLUSED
  16.  
  17. :RUN
  18. CALL C:\CL\%1.BAT
  19. GOTO END
  20.  
  21. :USE
  22. SHIFT
  23. ECHO @ECHO OFF > C:\CL\%USE%.BAT
  24. ECHO %0 %1 %2 %3 %4 %5 %6 %6 %7 %8 %9 >> C:\CL\%USE%.BAT
  25. C:\CL\%USE%.BAT
  26. GOTO END
  27.  
  28. :ALLUSED
  29. DEL C:\CL\0.BAT
  30. REN C:\CL\1.BAT 0.BAT
  31. REN C:\CL\2.BAT 1.BAT
  32. REN C:\CL\3.BAT 2.BAT
  33. REN C:\CL\4.BAT 3.BAT
  34. REN C:\CL\5.BAT 4.BAT
  35. REN C:\CL\6.BAT 5.BAT
  36. REN C:\CL\7.BAT 6.BAT
  37. REN C:\CL\8.BAT 7.BAT
  38. REN C:\CL\9.BAT 8.BAT
  39. SET USE=9
  40. GOTO USE
  41.  
  42. :DISPLAY
  43. FOR %%J IN (0 1 2 3 4 5 6 7 8 9) DO CALL CL ABC123XYZ %%J
  44. GOTO END
  45.  
  46. :SHOWTHEM
  47. IF NOT EXIST C:\CL\%2.BAT GOTO END
  48. ECHO --%2--
  49. TYPE C:\CL\%2.BAT | FIND /V "@ECHO OFF"
  50. ECHO.
  51. GOTO END
  52.  
  53. :MISSING
  54. ECHO CL.BAT requires the following parameters:
  55. ECHO.
  56. ECHO To store a command line, enter CL followed by commands
  57. ECHO To display stored command lines, enter CL D
  58. ECHO To reuse a command line, enter CL followed by its number
  59. ECHO.
  60. GOTO DISPLAY
  61.  
  62. :HELP
  63. ECHO CL.BAT stores command lines in batch files in the
  64. ECHO C:\CL directory, to replay later
  65. ECHO.
  66. ECHO To store a command line, enter CL followed by commands
  67. ECHO.
  68. GOTO END
  69.  
  70. :END
  71.